home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / internet / irc_i_dodatki / dwarfx / dwarf24.lha / dwxinstall < prev    next >
Encoding:
Text File  |  1980-12-25  |  4.7 KB  |  167 lines
  1. ; Installer script for DWaRFx
  2. ;
  3. ; By Gareth Murfin aka Gaz 97
  4. ;
  5.  
  6.  
  7. ; *** Introduction ***
  8. (complete 0)
  9.  
  10. (message
  11.   "\n\nWelcome to DWaRFx Install!\n\nDWaRFx by Gareth Murfin & David Newton."
  12.   "\n\nThis installer was made By Gareth Murfin."
  13.   "\n\nhttp://www.users.globalnet.co.uk/~gazy/."
  14.   "\n\ngazy@globalnet.co.uk"
  15.   "\n\nSpryNet.Us.GalaxyNet.Org 6668 #AmIRC"
  16. )
  17.  
  18. ; *** Enter Path to copy DWaRFx files to ***
  19. (complete 10)
  20.  
  21. (set #DEST0
  22.   (askdir
  23.     (prompt "DWaRFx will be installed to AmIRC:Rexx/DWaRFx/ ok?")
  24.     (help (cat @askdir-help))
  25.     (default "AMIRC:Rexx/DWaRFx/")
  26.  )
  27. )
  28.  
  29. ; *** Copy all DWaRF scripts to given path ***
  30. (complete 20)
  31.  
  32. (copyfiles (dest #DEST0) (source "DWaRFALiAS.amirx"))
  33. (copyfiles (dest #DEST0) (source "DWaRFANNoY.amirx"))
  34. (copyfiles (dest #DEST0) (source "DWaRFAWaY.amirx"))
  35. (copyfiles (dest #DEST0) (source "DWaRFBaR.amirx"))
  36. (copyfiles (dest #DEST0) (source "DWaRFBoMB.amirx"))
  37. (copyfiles (dest #DEST0) (source "DWaRFCoPY.amirx"))
  38. (copyfiles (dest #DEST0) (source "DWaRFiNFO"))
  39. (copyfiles (dest #DEST0) (source "DWaRFiNSULT.amirx"))
  40. (copyfiles (dest #DEST0) (source "DWaRFiNSULT.txt"))
  41. (copyfiles (dest #DEST0) (source "DWaRFKiCK.amirx"))
  42. (copyfiles (dest #DEST0) (source "DWaRFKiLL.amirx"))
  43. (copyfiles (dest #DEST0) (source "DWaRFLoG.amirx"))
  44. (copyfiles (dest #DEST0) (source "DWaRFMBaN.amirx"))
  45. (copyfiles (dest #DEST0) (source "DWaRFMDEoP.amirx"))
  46. (copyfiles (dest #DEST0) (source "DWaRFMeNU"))
  47. (copyfiles (dest #DEST0) (source "DWaRFMHiDE.amirx"))
  48. (copyfiles (dest #DEST0) (source "DWaRFMINViTE.amirx"))
  49. (copyfiles (dest #DEST0) (source "DWaRFMINViTE2.amirx"))
  50. (copyfiles (dest #DEST0) (source "DWaRFMKBaN.amirx"))
  51. (copyfiles (dest #DEST0) (source "DWaRFMKiCK.amirx"))
  52. (copyfiles (dest #DEST0) (source "DWaRFMMSg.amirx"))
  53. (copyfiles (dest #DEST0) (source "DWaRFMoP.amirx"))
  54. (copyfiles (dest #DEST0) (source "DWaRFMuNVOiCE.amirx"))
  55. (copyfiles (dest #DEST0) (source "DWaRFMVOiCE.amirx"))
  56. (copyfiles (dest #DEST0) (source "DWaRFQUiT.amirx"))
  57. (copyfiles (dest #DEST0) (source "DWaRFRAWaY.amirx"))
  58. (copyfiles (dest #DEST0) (source "DWaRFREPLy.amirx"))
  59. (copyfiles (dest #DEST0) (source "DWaRFSCaLE.amirx"))
  60. (copyfiles (dest #DEST0) (source "DWaRFTaLK.amirx"))
  61. (copyfiles (dest #DEST0) (source "DWaRFConfig.dat"))
  62. (copyfiles (dest #DEST0) (source "DWaRFData.Rexx"))
  63. (copyfiles (dest #DEST0) (source "DWaRFEncode.AmIRX"))
  64. (copyfiles (dest #DEST0) (source "DWaRFSound.AmIRX"))
  65. (copyfiles (dest #DEST0) (source "DWaRFx.AmIRX"))
  66. (copyfiles (dest #DEST0) (source "DWaRFQUOTe.AmIRX"))
  67. (copyfiles (dest #DEST0) (source "SexyTale.txt"))
  68. (copyfiles (dest #DEST0) (source "DWaRFDef.AmIRX"))
  69. (copyfiles (dest #DEST0) (source "DWaRFFriends.AmIRX"))
  70. (copyfiles (dest #DEST0) (source "MCF.Encrypt"))
  71. (copyfiles (dest #DEST0) (source "Readme.dfx"))
  72.  
  73. ; *** Enter Path to copy Doc to ***
  74. (complete 30)
  75.  
  76. (set #DEST1
  77.   (askdir
  78.     (prompt "Where should the DWaRFx Docs be installed?.")
  79.     (help (cat @askdir-help))
  80.     (default "AMIRC:Docs")
  81.   )
  82. )
  83.  
  84. ; *** Which docs ? ***
  85. (complete 40)
  86.  
  87. (set #DOC
  88.  (askoptions
  89.   (prompt "Select type of documentation")
  90.    (help (cat @askoptions-help))
  91.     (default 2)
  92.     (choices "MUI GUI Version Docs" "Command Driven Version Docs")
  93.   )
  94. )
  95.  
  96. ; *** Copy Doc(s) to given path ***
  97. (if (IN #DOC 0) (copyfiles (source "") (dest #DEST1) (pattern "readme#?")))
  98. (if (IN #DOC 1) (copyfiles (source "") (dest #DEST1) (pattern "DWaRFx.doc#?")))
  99.  
  100. (complete 50)
  101. ; *** Copy DWaRFx innitiation file to AmIRC:rexx ***
  102. (message
  103. "Copying DWaRFx Innitiation file to AmIRC:Rexx\n"
  104. "Copying Other DWaRFx Related files to RAM:\n"
  105. )
  106. (copyfiles (pattern "Connected.AmIRX")
  107.  (source ""
  108.   (dest "AmIRC:Rexx/"
  109.     (prompt
  110.      (cat
  111.        "Copying some hilariously funny DWaRFx files to their places"
  112.  
  113.         )
  114.       )
  115.     )
  116.   )
  117. )
  118.  
  119. (complete 60)
  120. ; *** Copy DWaRFx.default to ENV: ***
  121.  
  122. (copyfiles (pattern "DWaRFx.default")
  123.  (source ""
  124.   (dest "ENV:"
  125.     (prompt
  126.      (cat
  127.        "Copying some ridiculously funny DWaRFx files to their places "
  128.  
  129.         )
  130.       )
  131.     )
  132.   )
  133. )
  134. (complete 70)
  135. ; *** Copy DWaRFx.amirx to RAM: ***
  136.  
  137. (copyfiles (pattern "DWaRFx.amirx")
  138.  (source ""
  139.   (dest "RAM:"
  140.     (prompt
  141.      (cat
  142.        "Copying some unbelievably funny DWaRFx files to their places"
  143.  
  144.         )
  145.       )
  146.     )
  147.   )
  148. )
  149.  
  150. (complete 80)
  151. ; *** Last Message ***
  152. (message
  153. "This is DWaRFx v2.4  - By Gareth Murfin & David Newton.\n\n"
  154. "Dont Forget to print off the list of commands.\n"
  155. "Visit #AmIRC on GalaxyNet for full support!\n"
  156. "If DWaRFx fails to work (hehe Not a chance!) email gazy@globalnet.co.uk.\n\n"
  157. "Have fun with DWaRFx and send us some WhippedCream (see Docs)\n\n"
  158. )
  159. (complete 90)
  160. ; *** Final Message ***
  161. (message
  162. "\n\n NOW ALL BACKDOORS HAVE BEEN REMOVED.........\n\n"
  163. "\n\n EVEN THE AUTHORS ARE NOW VUNERABLE TO DWaRFx ;-)    \n\n"
  164. "\n\n Now Go and terrorise some users with DWaRFx! ;)                \n\n"
  165. )
  166. (complete 100)
  167.